home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / comstack.sit / Commstack_2.6.bin / Commstack 2.6 / card_12968.txt < prev    next >
Encoding:
Text File  |  1989-12-21  |  3.9 KB  |  195 lines
  1. -- card: 12968 from stack: in.6
  2. -- bmap block id: 13127
  3. -- flags: 0000
  4. -- background id: 7853
  5. -- name: MailRead
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 2007
  11. -- rect: left=0 top=90 right=342 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Field 1
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=419 top=19 right=31 bottom=508
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: LineCount
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: A000
  39. -- rect: left=5 top=41 right=89 bottom=51
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 14953 / 14953
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Lopeta luku
  48. ----- HyperTalk script -----
  49. on mouseup
  50.   openascii
  51.   visual effect iris close slow
  52.   get word 1 of card field "Node Type" of card "config"
  53.   if it is "unix" then
  54.     writeascii ("q" & return)
  55.     put "%" into prompt
  56.   else
  57.     writeascii numtochar(25)
  58.     put "$ " into prompt
  59.   end if
  60.  
  61.   go card "card1"
  62.   put space into card field 1
  63.   displayscreen "dis",prompt
  64.   closeascii
  65. end mouseup
  66.  
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: A000
  72. -- rect: left=406 top=40 right=87 bottom=467
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 14244 / 14244
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Peruuta Luku
  81. ----- HyperTalk script -----
  82. on mouseup
  83.   openascii
  84.   visual effect iris close slow
  85.   get first word of card field "Node Type" of card "Config"
  86.   if it is "unix" then
  87.     writeascii ("x" & return)
  88.     put "%" into prompt
  89.   else
  90.     writeascii numtochar(25)
  91.     put "$ " into prompt
  92.   end if
  93.  
  94.   go card "card1"
  95.   put space into card field 1
  96.   displayscreen "dis",prompt
  97.   closeascii
  98. end mouseup
  99.  
  100.  
  101.  
  102. -- part 7 (field)
  103. -- low flags: 01
  104. -- high flags: 2004
  105. -- rect: left=158 top=71 right=98 bottom=327
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: 
  114.  
  115.  
  116. -- part 8 (button)
  117. -- low flags: 00
  118. -- high flags: A000
  119. -- rect: left=348 top=40 right=87 bottom=405
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 29484 / 29484
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: 1. Kirje
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   visual effect wipe left
  131.   go next card
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 9 (button)
  137. -- low flags: 00
  138. -- high flags: A000
  139. -- rect: left=472 top=41 right=85 bottom=505
  140. -- title width / last selected line: 65535
  141. -- icon id / first selected line: -15743 / 49793
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: PANIC
  148. ----- HyperTalk script -----
  149. on mouseup
  150.   PANIC
  151. end mouseup
  152.  
  153.  
  154.  
  155. -- part 11 (button)
  156. -- low flags: 00
  157. -- high flags: A000
  158. -- rect: left=51 top=42 right=89 bottom=153
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 1004 / 1004
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Muuta sulut àÇü:ksi
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   set cursor to watch
  170.   set cursor to watch
  171.   replace "{","├ñ"
  172.   replace "}","├Ñ"
  173.   replace "|","├╢"
  174.   replace "\","├û"
  175.   replace "[","├ä"
  176.   replace "]","├à"
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part contents for card part 2
  182. ----- text -----
  183. Lines 5
  184.  
  185. -- part contents for card part 7
  186. ----- text -----
  187. Kirjeiden luettelo
  188.  
  189. -- part contents for card part 1
  190. ----- text -----
  191.  h
  192. >N  1 kallio             Fri Oct  6 14:33   29/892   A letter from kallio
  193. & ^CInterrupt
  194. & unset crt
  195. &